home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / ADDDLNUM.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  21 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  : z0 board name, z2 - type, z4 - description, z5 - parameters, if any
  6. top lput "\E[0m\E[2J\E[37;44mEnter Files to be Downloaded from %z4\E[0m\r\n"
  7.  lput "\r\nThe filename to be downloaded must not include directory delimiters(/) or"
  8.  lput "\r\nwildcard specifications with '?' or '*'.\r\n\n"
  9. next: set z1 / lput \r\n
  10.  while "%z1>12||Jz1,/, *?\\" lput "\E[A\E[K\rEnter the Filename to Download (Enter)=none? \E[12C<\r\n" accept z1 "\E[A\E[45C"
  11.  ife !%z1 return;if f%dirrx%z1 lput "You already have %dirrx%z1.\r\n" goto next
  12.  sets item %z1 sets z3 %z0 setc z1 \L%item
  13.  p?0 if f%n8/%z3.dl p?0 findq "\n%z1," %n8/%z3.dl
  14.  if ? lput \U%item lput " is already specified in %n8/%z3.dl\r\n" sets z0 %z3 goback next
  15.  sets z0 %z3 set z3 ""
  16.  while "!%z3||az3==0||Jz3,,\\;~.+()[]{}/" acceptl z3 "Download From Which Area Number: "
  17.  ife r nolog closerx;ki;create -+S!i %n8/%z0.dl;echof "\T%z3,%item"
  18.  if r w;nolog closerx;lput "Entry Created in %n8/%z0.dl to download %item from %z4.\r\n"
  19.  if c ki;create -+S!i %n9/ZC%d%ano.LOG
  20.  goback next
  21.